REPORT 
ZDEMO_INTERACTIVE_RPRTS_CURSOR. 


types: begin of ty lfal, " from vender master 
table(general section) 

lifnr type lifnr , " Account Number of Vendor or 
Creditor 


namel type namel_gp, "name 
ort0O1 type ort01 gp, " city 

landl type land1_gp, " country key 
end of ty_Ifal. 


types : begin of ty ekko, " Purchasing Document 
Header 
ebeln type ebeln, "Purchasing Document Number 


aedat type erdat, "Date on Which Record Was 
Created 
end of ty_ekko. 


data : it lfal type table of ty lfal, 
it_ekko type table of ty_ekko, 
wa lfal type ty lfal, 
wa_ekko type ty_ekko, 
v_lifnr type lifnr, 
V_NAME1 TYPE NAME1 GP. 


select-options s lifnr for v_lifnr default 1 to 100. 


select lifnr namel ort01 land1 from lfal into table it lfal 
where lifnr in s_lifnr. 


LOOP AT it lfal into wa lfal. 


write :/20 wa lfal-lifnr color 1 , wa_lfal-namel color 3 , 
wa_lfal-ortOl color 5, wa_lfal-land1 color 7. 
ENDLOOP. 
at line-selection. 


data : v fname type string , v_fval type string. 


get cursor field v_fname value v_fval. 


"write :/ 'v_lifnr',v_fval,v_fname color 7. " here v_fname 
contains field name and its value will be hold in v_fval.... 


IF v_fname = 'WA _LFAI1-LIFNR'. 
v_lifnr = v_fval. 


CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' 
EXPORTING 


INPUT = V_LIFNR 
IMPORTING 


OUTPUT = V_LIFNR 


write :/'V_LIFNR IS ', v_lifnr color 6. SKIP. 


SELECT EBELN AEDAT INTO TABLE IT EKKO FROM EKKO 
WHERE LIFNR = V_LIFNR. 


IF IT EKKO IS NOT INITIAL. 
LOOP AT IT_EKKO INTO WA_EKKO. 
WRITE :/ sy-tabix color 7, WA_EKKO-EBELN color 3, 
wa_ekko-aedat color 2. 
ENDLOOP. 
ELSE. 
WRITE :/ 'NO DATA found’. 


ENDIF. 


KKK KKK 


eee ELSEIF v_fname = 'WA_LFA1-NAME1'. 
eK write :/'V_LIFNR IS ', v_lifnr color 6. SKIP. 
*#Y#kkkkkkx y NAME] = v_fval. 

eK SELECT LIFNR NAME1 ORTO1 INTO TABLE 
IT_LFA1 FROM LFA1 

xx WHERE NAME1 = V_NAME1. 

xx TE TT LFAL IS NOT INITIAL. 

eK LOOP AT IT_LFA1 INTO WA _LFAI. 
eK WRITE :/ sy-tabix color 7, WA_LFA1-NAMEI1 color 
3, wa_LFA1-ORTO1 color 2. 

eK ENDLOOP. 


eee WRITE :/ 'NO DATA found FROM ',V_FVAL. 


else. 
write :/ no records in ', v_FNAME. 


ENDIF. 


